home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Scriptable Authoring.dir / Scripts_15_Costume Selection Scripts.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  1.4 KB  |  32 lines
  1. global gPuppetList, gMaskName, gCostumeName, gCostumeSpriteList
  2.  
  3. on SelectMask whichSprite
  4.   if whichSprite < 1 then
  5.     exit
  6.   end if
  7.   set the rect of sprite the maskHilite of gPuppetList to the rect of sprite whichSprite
  8.   set theMemberRef to the number of the member of sprite whichSprite
  9.   set maskCastName to the name of member theMemberRef
  10.   delete word 1 of maskCastName
  11.   set gMaskName to maskCastName
  12.   set the text of member "gMaskName Field" to gMaskName
  13.   set the castLibNum of sprite the captainMask of gPuppetList to the number of castLib "Costume Set"
  14.   set the memberNum of sprite the captainMask of gPuppetList to the number of member gMaskName
  15.   set the mask of gCostumeSpriteList to whichSprite
  16. end
  17.  
  18. on SelectCostume whichSprite
  19.   if whichSprite < 1 then
  20.     exit
  21.   end if
  22.   set the rect of sprite the costumeHilite of gPuppetList to the rect of sprite whichSprite
  23.   set theMemberRef to the number of the member of sprite whichSprite
  24.   set costumeCastName to the name of member theMemberRef
  25.   delete word 1 of costumeCastName
  26.   set gCostumeName to costumeCastName
  27.   set the text of member "gCostumeName Field" to gCostumeName
  28.   set the castLibNum of sprite the captainCostume of gPuppetList to the number of castLib "Costume Set"
  29.   set the memberNum of sprite the captainCostume of gPuppetList to the number of member gCostumeName
  30.   set the costume of gCostumeSpriteList to whichSprite
  31. end
  32.